Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/crwdemo/main.frm

Text File | 1995-12-05 | 20KB | 750 lines

VERSION 2.00
Begin MDIForm Main
   Caption         =   "Program Manager"
   ClientHeight    =   5235
   ClientLeft      =   900
   ClientTop       =   2100
   ClientWidth     =   9600
   Height          =   5925
   Icon            =   MAIN.FRX:0000
   Left            =   840
   LinkTopic       =   "Main"
   Top             =   1470
   Width           =   9720
   WindowState     =   2  'Maximized
   Begin SSPanel ToolBar
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   9600
      Begin CommandButton Command5
         Caption         =   "Cancel"
         Height          =   330
         Left            =   4050
         TabIndex        =   7
         Top             =   90
         Visible         =   0   'False
         Width           =   780
      End
      Begin CommandButton Command4
         Caption         =   ">>"
         Height          =   330
         Left            =   2385
         TabIndex        =   6
         Top             =   90
         Visible         =   0   'False
         Width           =   735
      End
      Begin CommandButton Command3
         Caption         =   "<<"
         Height          =   330
         Left            =   1575
         TabIndex        =   5
         Top             =   90
         Visible         =   0   'False
         Width           =   735
      End
      Begin CommandButton Command2
         Caption         =   ">|"
         Height          =   330
         Left            =   3195
         TabIndex        =   4
         Top             =   90
         Visible         =   0   'False
         Width           =   780
      End
      Begin CommandButton Command1
         Caption         =   "|<"
         Height          =   330
         Left            =   720
         TabIndex        =   3
         Top             =   90
         Visible         =   0   'False
         Width           =   750
      End
      Begin SSCommand Preview
         BevelWidth      =   1
         Height          =   375
         Left            =   120
         Picture         =   MAIN.FRX:0302
         TabIndex        =   2
         Top             =   120
         Width           =   330
      End
      Begin CommonDialog CMDialog1
         DefaultExt      =   "*.rpt"
         DialogTitle     =   "Open Report"
         Filter          =   "Crystal Report(*.rpt)|*.rpt"
         Left            =   9000
         Top             =   0
      End
   End
   Begin SSPanel StatusBar
      Align           =   2  'Align Bottom
      Alignment       =   1  'Left Justify - MIDDLE
      BorderWidth     =   1
      Caption         =   " Ready"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   4935
      Width           =   9600
      Begin Line Line2
         BorderColor     =   &H00FFFFFF&
         X1              =   0
         X2              =   7350
         Y1              =   30
         Y2              =   30
      End
      Begin Line Line1
         BorderColor     =   &H00000000&
         X1              =   0
         X2              =   7350
         Y1              =   15
         Y2              =   15
      End
   End
   Begin Menu MenuFile
      Caption         =   "&File"
      Begin Menu MenuFileNew
         Caption         =   "&New"
      End
      Begin Menu MenuFileClose
         Caption         =   "&Close"
         Enabled         =   0   'False
      End
      Begin Menu MenuFileSep
         Caption         =   "-"
      End
      Begin Menu MenuFileExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu MenuEngine
      Caption         =   "&Engine Management"
      Begin Menu MenuEngineOpen
         Caption         =   "&Open Engine"
      End
      Begin Menu MenuEngineOpenJob
         Caption         =   "&Open Print Job"
      End
      Begin Menu MenuEngineCloseJob
         Caption         =   "&Close Print Job"
      End
      Begin Menu MenuEngineClose
         Caption         =   "&Close Engine"
      End
   End
   Begin Menu MenuFormat
      Caption         =   "&Format"
      Begin Menu MenuFormatRptTitle
         Caption         =   "&Report Title"
      End
      Begin Menu MenuFormatSetMargins
         Caption         =   "&Set Margins"
      End
      Begin Menu MenuFormatSetSecFormat
         Caption         =   "&Set Section Format"
      End
      Begin Menu MenuFormatMinSectionHeight
         Caption         =   "&Set Minimum Section Height"
      End
      Begin Menu MenuFormatSetLineHeight
         Caption         =   "&Set Line Height"
      End
      Begin Menu MenuFormatSetSectionFont
         Caption         =   "&Set Section Font"
      End
   End
   Begin Menu MenuFields
      Caption         =   "&Fields"
      Begin Menu MenuFieldsRecordSortField
         Caption         =   "&Record Sort Fields"
      End
      Begin Menu MenuFieldsGroupSortFields
         Caption         =   "&Group Sort Fields"
      End
      Begin Menu MenuGroupCond
         Caption         =   "&Set Group Condition"
      End
   End
   Begin Menu MenuFormulas
      Caption         =   "&Formulae"
      Begin Menu MenuFormulasSetFormula
         Caption         =   "&Formulae"
      End
      Begin Menu MenuFormulasSetSelForm
         Caption         =   "&Selection Formulae"
      End
   End
   Begin Menu MenuDatabase
      Caption         =   "&Database"
      Begin Menu MenuDBLocation
         Caption         =   "&Location"
      End
      Begin Menu MenuModSQL
         Caption         =   "&Modify SQL"
      End
      Begin Menu MenuLogon
         Caption         =   "&Logon Server"
      End
      Begin Menu MenuLogoff
         Caption         =   "&Logoff Server"
      End
      Begin Menu MenuLogonInfo
         Caption         =   "&Logon Info"
      End
      Begin Menu MenuSecurity
         Caption         =   "&Security"
      End
   End
   Begin Menu MenuPrint
      Caption         =   "&Print"
      Begin Menu MenuPrintdestination
         Caption         =   "&Destination"
      End
   End
   Begin Menu MenuWindow
      Caption         =   "&Window"
      WindowList      =   -1  'True
      Begin Menu MenuWindowCascade
         Caption         =   "&Cascade"
      End
      Begin Menu MenuWindowTileH
         Caption         =   "Tile &Horizontally"
      End
      Begin Menu MenuWindowTileV
         Caption         =   "&Tile Vertically"
      End
      Begin Menu MenuWindowArrange
         Caption         =   "&Arrange"
      End
   End
End
' Crystal.Vbx doesn't have an Align Property so The ToolBar
' is used as a container.
' The following Default Properties of Crystal.Vbx have been
' changed to:-
'       WindowBorderStyle = 0 - None
'       WindowControlBox = False
'       WindowMaxButton = False
'       WindowMinButton = False
'       WindowLeft = 0      'so that the MoveWindow Function
'       WindowTop = 0       'doesn't jerk the Crystal Window
'                           'across the MDIChild Window.
'--------------------------------------------------------------------
 Dim dllname As String * 20

Sub Command1_Click ()
 If PEShowFirstPage(JobNum) = False Then
   'RCode = PEGetErrorCode(Jobnum)
   'MsgBox "PEShowPreviousPage = " + RCode
 End If
End Sub

Sub Command2_Click ()
 If PEShowLastPage(JobNum) = False Then
   'RCode = PEGetErrorCode(Jobnum)
   'MsgBox "PEShowPreviousPage = " + RCode
 End If

End Sub

Sub Command3_Click ()
 If PEShowPreviousPage(JobNum) = False Then
   'RCode = PEGetErrorCode(Jobnum)
   'MsgBox "PEShowPreviousPage = " +